Imports Microsoft.VisualBasic

Public Module Variables    
    Public UserCode As String
    Public Const gIntEmpy As Integer = -1
End Module

Public Enum TipoBook
    Audio = 201001
    Foto = 201002
    Video = 201003
    BlogEntrada = 201004
    Archivos = 201005
    Blog = 201006
End Enum

Public Enum EstadoContacto
    Realizada = 2
    Pendiente = 1
    Inubicable = 3
    Ninguna = -1
End Enum

Public Enum nPrdActividad
    Academica = 2
    Admision = 3
    Planilla = 5
    EjercicioContable = 8
    PeriodoContable = 4
    Administrativo = 1
    CProd = 10
End Enum

Public Enum nEstado
    Activo = 1
    Inactivo = 0
End Enum

Public Enum nSisGruTipo
    Periodo = 1004
    PeriodoContable = 1007
    UnidadOrganizacional = 1006
    Escuelas = 1002
    Actividad = 4015
    GrupoSistema = 1004
    MenuWeb = 1011
End Enum

Public Enum nPerRelacion
    Persona = 3
    Universidad = 1
End Enum

Public Enum CategoriaCombo
    gConCategoriaAudio = 3000
    gConCategoriaVideo = 3001
    gConCategoriaBlog = 3002
End Enum

Public Enum OrigenUcvBook
    gConOrgCIS = 1
    gConOrgCI = 2
    gConEstPregrado = 3
    gConEstInvestigacion = 4
End Enum

Public Enum TipoSeguridad
    gConPublico = 1
    gConPrivado = 0
    gConTodos = 3
    gConSoloAmigos = 4
End Enum

Public Enum Operacion
    gIngresoUsuario = 1
    gVotarEvento = 2
    gVerAfiche = 3
    gPublicarEvento = 4
    gConfirmarAmistad = 5
    gPublicarLeGustaFoto = 6
    gPublicarNoLeGustaFoto = 7
    gPublicarInsFoto = 8
    gPublicarInsVideo = 9
    gPublicarInsArchivo = 10
    gPublicarInsAudio = 14
    gUnirseEvento = 11
    gComentarFoto = 12

    gInvitarAmigo = 13

    gVerReproducirAudio = 24
    gVerReproducirFoto = 25
    gVerReproducirVideo = 26
    gVerReproducirBlog = 34
    gVerReproducirBlogentrada = 35
End Enum

Public Enum TipoPerfil
    'INFORMACION BASICA
    gConPerfilInfoCiuOr = 23
    gConPerfilInfoCiuAct = 24
    gConPerfilInfoGener = 25
    gConPerfilInfoMeInte = 26
    gConPerfilInfoFechNac = 27
    gConPerfilInfoAlgoDmi = 28

    'FOTO DE PERFIL
    'PARENTESCO
    gConPerfilParentRels = 32
    gConPerfilParentFamil = 33

    'FORMACUON ACADEMICA
    gConPerfilFormAEmpLab = 29
    gConPerfilFormAUnivEs = 30
    gConPerfilFormAEscSec = 31

    'DEPORTES
    gConPerfilDepQPrac = 11
    gConPerfilDepEquFav = 12
    gConPerfilDepDepFav = 13
    'FILOSOFIA
    gConPerfilFilRel = 14
    gConPerfilFilPol = 15
    gConPerfilFilPerAdm = 16
    'GUSTOS Y ARTE
    gConPerfilGusMusica = 17
    gConPerfilGusProTv = 18
    gConPerfilGusComF = 19
    gConPerfilGusPeli = 20
    gConPerfilGusJue = 21
    gConPerfilGusLibr = 22
    'INFORMACION DE CONTACTO
    gConPerfilIncCorr = 34
    gConPerfilIncTel = 35
    gConPerfilIncDirec = 36
    gConPerfilIncCiud = 37
    gConPerfilIncSitW = 38

End Enum
